#!/usr/bin/perl -w

while(<<>>) {
    chomp;
    if(/\s\z/){
        print "$_#\n";
    }
}
